home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club (Business) 1997 July / Software of the Month Club - Business (Volume 239) (July 1997).iso / pc / code / debug / status.dir / 00001.ls next >
Encoding:
Text File  |  1995-11-09  |  636 b   |  16 lines
  1. on startMovie
  2.   updateStatusDisplay()
  3. end
  4.  
  5. on updateStatusDisplay
  6.   global gstates, gCurrentKeyRef, gcurkeylist
  7.   put "Please wait - retrieving status information" into field "status"
  8.   set statusInfo to EMPTY
  9.   put "Environment:" && getaProp(gstates, #EnviroLetter) after statusInfo
  10.   put RETURN & "Keyframe:" && gCurrentKeyRef after statusInfo
  11.   put RETURN & "Credits:" && getaProp(gstates, #Credits) after statusInfo
  12.   put RETURN & "Onscreen objects: " && getaProp(gcurkeylist, #OBJECTS) after statusInfo
  13.   put RETURN & "Solved conditions:" && getaProp(gstates, #Conditions) after statusInfo
  14.   put statusInfo into field "status"
  15. end
  16.